home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / COLOR.BAS < prev    next >
BASIC Source File  |  1991-03-19  |  385b  |  14 lines

  1. MODE 3 : COORDINATE 320,200 ' Change to MODE 16, 19, 22 or 23 for your card
  2. FOR I = 0 TO 23
  3.   COLOR = I
  4.   BOX FILL 0,I*25 TO 159,I*25+24
  5.   COLOR = I + 8
  6.   BOX FILL 160,I*25 TO 320,I*25+24
  7.   POKE &33B, I + 8
  8.   PRINT %(4,I*25+12) I;
  9.   POKE &33B, I
  10.   PRINT %(164,I*25+12) I+8
  11. NEXT I
  12. DO : UNTIL LEN(INKEY$)
  13. MODE 2
  14.